﻿Imports System.Data.SqlClient
Imports System.Data
Partial Class Details
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        Dim ID As String = Request.QueryString("key").ToString()
        Dim ds As New DataSet

        Dim connectionString As String = ConfigurationManager.ConnectionStrings("MailSystemConnectionString2").ConnectionString
        Try
            Dim conn As New SqlConnection(connectionString)
            Dim sql As String = "SELECT * From vPackageDetails WHERE ID = " + ID
            Dim adpt As New SqlDataAdapter(sql, conn)
            adpt.Fill(ds)
            For Each dr As DataRow In ds.Tables(0).Rows

            Next
            GridView1.DataSource = ds
            GridView1.DataBind()
            GridView1.Visible = True

        Catch ex As Exception

        End Try
    End Sub
End Class
